home *** CD-ROM | disk | FTP | other *** search
/ ANews 1 / AnewsCD01.iso / Logiciels / AmigaWriter-demo / AmigaWriter Install-Script next >
Text File  |  1999-08-15  |  15KB  |  514 lines
  1. ;*************************************************************************
  2. ;*  AmigaWriter CD-Installer Version 1.01   25 August 1998               *
  3. ;*                                                                       *
  4. ;*  ©1998 HAAGE & PARTNER Computer GmbH                                  *
  5. ;*                                                                       *
  6. ;*  If you have any installer questions please let us know!              *
  7. ;*                                                                       *
  8. ;*************************************************************************
  9. ;
  10. ; $VER: AmigaWriter V1.04 Install Version 1.0 (23.09.98)
  11.  
  12. (complete 0)
  13.  
  14. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  15. ; Versionen.
  16.  
  17. (set #amigawriter-version "Version 1.04")
  18. (set #amigawriter-date "(23.09.98)")
  19.  
  20. ; // Die Dateigrößen
  21.  
  22. (set #size-komplett 2) ; MByte CD-Installation
  23.  
  24. ;====================================================================
  25. ; Initialisierungen
  26.  
  27. ; --- English strings ---
  28.  
  29.     (set #yeskey "Yes")
  30.     (set #nokey "No")
  31.  
  32.     (set #wrongos "\n Sorry, you will need OS2.04 or better\n")
  33.  
  34.     (set #wrongcpu "\n Sorry, you will need min. a 68020 CPU to use AmigaWriter\n")
  35.  
  36.     (set #welcome (cat "\n\n"
  37.         "Welcome to the installation of the new word processor AmigaWriter\n\n"
  38.         ""#amigawriter-version " of "#amigawriter-date"\n\n"
  39.         "This script copies the whole word processor an some\n"
  40.         "new system librarys to your harddisk!\n\n"
  41.         "© 98 HAAGE&PARTNER Computer GmbH\n"
  42.         ))
  43.  
  44.     (set #install_wizardlib
  45.        "Copying the Wizard.Library")
  46.  
  47.     (set #install_wizardlib_help
  48.        "The Library makes very short programms!")
  49.  
  50.     (set #install_applib
  51.        "Copying the Appmanager.Library")
  52.  
  53.     (set #install_applib_help
  54.        "The Library makes very short programms!")
  55.  
  56.     (set #oldversion (cat "\n"
  57.         "There is an old version of AmigaWriter on your\n"
  58.         "harddisk!\n"
  59.         "" (getassign "AmigaWriter") "\n"
  60.         ))
  61.  
  62.     (set #oldversion_help (cat "\n"
  63.         "Choose an option!\n"
  64.         ""
  65.         ))
  66.  
  67.     (set #new    "New installation")
  68.     (set #drueber "Update your existing version of AmigaWriter")
  69.     (set #remove "Remove AmigaWriter")
  70.  
  71.     (set #chose_path (cat "\n"
  72.         "Please chose a drive and folder for installation.\n"
  73.         "A folder AmigaWrite will be generated automatically.\n"
  74.         ))
  75.     (set #chose_path_help "Please chose a path.")
  76.  
  77.     (set #fonterror (cat "\n"
  78.         "FONTPROBLEM found:\n\n"
  79.         "The following Compugrahic fonts:\n\n"
  80.         "CGTimes, CGTriumvirate und LetterGothic\n\n"
  81.         "must be installed.\n\n"
  82.         "You can find these font on your Amiga system disks."
  83.         ))
  84.  
  85.     (set #endsuccess "\n\nInstallation successfull")
  86.  
  87. (if (= @language "deutsch") (
  88.  
  89.  
  90.     (set #yeskey "Ja")
  91.     (set #nokey "Nein")
  92.  
  93.     (set #wrongos "\n Sorry, dieses Paket benötigt mind. OS2.04.\n")
  94.  
  95.     (set #wrongcpu "\n Sorry, das AmigaWriter-Paket setzt eine 68020 CPU voraus!\n")
  96.  
  97.     (set #welcome (cat "\n\nWillkommen bei der Installation der neuen\n"
  98.         "Textverarbeitung AmigaWriter.\n\n"
  99.         ""#amigawriter-version " vom "#amigawriter-date"\n\n"
  100.         "Dieses Skript kopiert die verschiedenen\n"
  101.         "Dateien und Bibliotheken, aus denen sich AmigaWriter\n"
  102.         "zusammensetzt auf Ihre Festplatte.\n\n"
  103.         "© 98 HAAGE&PARTNER Computer GmbH\n"
  104.         ))
  105.  
  106.    (set #install_wizardlib
  107.       "Kopiere die Wizard.Library")
  108.    (set #install_wizardlib_help
  109.       "Sie ist für die sehr kurzen Programme verantwortlich!")
  110.    (set #install_applib
  111.       "Kopiere die Appmanager.Library")
  112.    (set #install_applib_help
  113.       "Sie ist für die sehr kurzen Programme verantwortlich!")
  114.  
  115.     (set #oldversion (cat "\n"
  116.         "Auf Ihrer Festplatte befindet sich bereits\n"
  117.         "eine Installation von AmigaWriter!\n"
  118.         "" (getassign "AmigaWriter") "\n"
  119.         ))
  120.  
  121.     (set #oldversion_help (cat "\n"
  122.         " Wählen Sie einfach die bereits vorhandene\n"
  123.         "Schublade an, wenn Sie AmigaWriter\n"
  124.         "aktualisieren möchten!\n\n"
  125.         "Ihr alten Voreinstellungen werden\n"
  126.         "dadurch vermutlich ÜBERSCHRIEBEN!"
  127.         ))
  128.     (set #new    "Neu installieren")
  129.     (set #drueber "Update über bisherige Version installieren")
  130.     (set #remove "Deinstallation - AmigaWriter entfernen")
  131.     (set #chose_path (cat "\n"
  132.         "Bitte wählen Sie ein Laufwerk oder/und eine Schublade für die Installation.\n"
  133.         "Eine neue Schublade \"AmigaWriter\" wird automatisch generiert.\n"
  134.         ))
  135.     (set #chose_path_help "Please chose a path.")
  136.  
  137.     (set #fonterror (cat "\n"
  138.         "FONTPROBLEM entdeckt:\n\n"
  139.         "Es müssen die Compugraphic-Fonts:\n\n"
  140.         "CGTimes, CGTriumvirate und LetterGothic\n\n"
  141.         "zwingend installiert sein.\n\n"
  142.         "Die Fonts gehören zum Betriebssystem. Sie werden Sie daher"
  143.         " auf Ihrem Diskettensatz zum Betriebssystem finden\n"
  144.         ))
  145.  
  146.     (set #endsuccess "\n\nInstallation erfolgreich beendet")
  147. ))
  148.  
  149. (set #os-version (/ (getversion) 65536))
  150. (set #os-13 (< #os-version 36))
  151. (set #os-20 (>= #os-version 36))
  152. (set #os-21 (>= #os-version 38))
  153.  
  154. ; ------------ Die Pfadnamen der einzelnen Quell-Dateien ----------------
  155.  
  156. (set #wizardlib (tackon (pathonly @icon) "SYS-Libs/wizard.library"))
  157. (set #applib (tackon (pathonly @icon) "SYS-Libs/appmanager.library"))
  158. (set #awall (tackon (pathonly @icon) "AmigaWriter-SYS"))
  159. ;=====================================================================================
  160. ; // Beginn der Installation
  161. ;=====================================================================================
  162.  
  163. ; ----------------------------- Prozeduren ------------------------------
  164.  
  165. (Procedure @Make_Folder
  166.     (
  167.     (set #folder (tackon #folder "AmigaWriter"))
  168.         (if (= (exists #folder) 0)
  169.             (
  170.             (makedir #folder (infos))
  171.             )
  172.             (
  173.             (set #update 1)        ; // Doch schon vorhanden!
  174.             )
  175.         )
  176.     )
  177. )
  178.  
  179. ; // wird min. unter 2.04 installiert ?
  180.  
  181. (if (= #os-13 1)
  182.  
  183.     (
  184.         (message #wrongos)
  185.         (exit (quiet))
  186.     )
  187. )
  188.  
  189. (if (patmatch "68000|68010" (database "cpu"))
  190.     (
  191.         (message #wrongcpu)
  192.         (exit (quiet))
  193.     )
  194. )
  195.  
  196. (onerror (
  197.     (if (> @ioerr 0)
  198.         (message (cat "\n ERROR CODE: " @ioerr "\n\n"))
  199.     )
  200. ))
  201.  
  202. ; // Eine kleine Änderung to enable das script zu laufen (deutsch??).
  203.  
  204. ;(run "ASSIGN ENV: WarpUP-WarpOS/ENV/ ADD")
  205.  
  206. ; // Eine kleine Einleitung, gefolgt vom Startbild des Installers.
  207.  
  208.  
  209. (message #welcome)
  210.  
  211. ;(welcome)
  212.  
  213. (complete 2)
  214.  
  215. (set setpatchvernum (getversion "C:SetPatch"))
  216. (set setpatchver (/ setpatchvernum 65536))
  217. (set setpatchrev (- setpatchvernum (* setpatchver 65536)))
  218.  
  219. ; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
  220.  
  221. (set #folder "Work:")
  222. (set #update 0)
  223.  
  224. (if (exists "AmigaWriter:" (noreq))
  225.     (
  226.         (set #update
  227.             (askchoice
  228.                 (prompt #oldversion)
  229.                 (help   #oldversion_help)
  230.                 (default 1)
  231.                 (choices
  232.                     #new
  233.                     #drueber
  234. ;                    #remove
  235.                 )
  236.             )
  237.         )
  238.     )
  239. )
  240.  
  241. (if (<> #update 0)                        ; // altes Assign benutzen wenn update oder remove
  242.     (
  243.         (set #folder (getassign "AmigaWriter"))
  244.     )
  245. )
  246.  
  247. (complete 30)
  248.  
  249. (if (= #update 0)
  250.     (
  251.     (set ok 0)
  252.         (while (not ok)
  253.             (set #folder
  254.                 (askdir
  255.                 (prompt #chose_path)
  256.                 (help #chose_path_help)    ; // Auswahl Hilfetext
  257.                 (default #folder)
  258.                 (disk)
  259.                 )
  260.             )
  261.  
  262.             (@Make_Folder)    ; // Automatisch neues Verzeichnis anlegen!
  263.  
  264.     (set #dir_error (cat  "\n"
  265.         "Your selection \"" #folder "\" is not a\n"
  266.         "valid device or drawer!\n\n"
  267.         "Select 'Show drives' to get an overview of all\n"
  268.         "devices available on your Amiga.\n"
  269.         "Please select one of the devices on top of\n"
  270.         "the list.\n"
  271.         "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\"\n"
  272.         "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
  273.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
  274.         "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
  275.         ))
  276.  
  277.     (set #memory_error (cat  "\n"
  278.         "There is not enough free disk space at the\n"
  279.         "device you have selected for the installation.\n\n"
  280.         "Free diskspace    " freediskspace "!\n"
  281.         "Diskspace needed  " size-komplett "!\n\n"
  282.         "Please select a another device or harddisk!"
  283.         ))
  284.  
  285. (if (= @language "deutsch") (
  286.  
  287.  
  288.     (set #dir_error (cat  "\n"
  289.         "Bei Ihrer Auswahl \"" #folder "\" handelt es   \n"
  290.         "sich nicht um eine gültige Schublade!         \n"
  291.         "                                              \n"
  292.         "Sie können über das Symbol 'Laufwerke anz.'   \n"
  293.         "(bzw. 'Show drives') eine Übersicht über alle \n"
  294.         "Laufwerke Ihres Amiga anfordern; aus dieser   \n"
  295.         "Übersicht sollten Sie nur die oberen, nicht   \n"
  296.         "farblich gekennzeichneten Einträge auswählen. \n"
  297.         "Über den Schalter \"Neue Schublade anlegen..\"\n"
  298.         "können Sie ein neue Schublade erzeugen. Diese \n"
  299.         "neue Schublade wird auf der Partition        \n"
  300.         "angelegt, die Sie soeben betrachten."
  301.         ))
  302.  
  303.     (set #memory_error (cat  "\n"
  304.         "Auf der ausgewählten Festplattenpartition     \n"
  305.         "steht nicht genügend freier Speicher für die  \n"
  306.         "komplette Installation des Compilersystems zur\n"
  307.         "Verfügung.                                    \n"
  308.         "                                              \n"
  309.         "Freier Speicher " freediskspace "!            \n"
  310.         "Benötigter Speicher " size-komplett "!        \n"
  311.         "                                              \n"
  312.         "Bitte wählen Sie eine andere Partition, auf   \n"
  313.         "der entsprechende Kapazitäten vorhanden sind!"
  314.         ))
  315. ))
  316.  
  317. (if (= @language "italiano") (
  318.  
  319.     (set #dir_error (cat  "\n"
  320.         "La vostra selezione (\"" #folder "\") non è\n"
  321.         "un disco o un cassetto valido!\n\n"
  322.         "Selezionate 'Dischi' per avere una lista dei\n"
  323.         "dischi disponibili sul vostro Amiga.\n"
  324.         "Alcuni nomi tipici sono \"WORK:\", \"HD0:\" o \"DH0\"\n"
  325.         "NON usate \"DF0:\", \"DF1:\", \"DF2:\",\n"
  326.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
  327.         "\"WB_2.x:\", \"System3.0:\" o \"WB_3.x:\"!\n\n"
  328.         ))
  329.  
  330.     (set #memory_error (cat  "\n"
  331.         "Il disco che avete selezionato non ha\n"
  332.         "abbastanza spazio libero.\n\n"
  333.         "Spazio disponibile   " freediskspace "\n"
  334.         "Spazio richiesto     " size-komplett "\n\n"
  335.         "Provate a selezionare un altro disco."
  336.         ))
  337. ))
  338.  
  339.             ; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
  340.             ; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
  341.             ; // kann die Auswahl-Schleife beendet werden.
  342.             (if (or (or (or (<= (strlen #folder) 0) (= (substr #folder (- (strlen #folder) 1) 1) ":")) (= (exists #folder (noreq)) 0)) (= (getdiskspace #folder) -1))
  343.                 (message #dir_error)  ; Fehler bei der Auswahl der Schublade
  344.                 ;else
  345.                 (
  346.                     (set freediskspace (getdiskspace #folder))  ; // Der freie Speicher auf diesem Medium
  347.                     (if (< freediskspace size-komplett)
  348.                         (
  349.                         (user 1)
  350.                             (message #memory_error)  ; // nicht genügend freier Speicher
  351.                         )
  352.                      ;else
  353.                         (set ok 1)
  354.                     )
  355.                 )
  356.             )
  357.         )
  358.     )
  359. )
  360.  
  361.  
  362.  
  363. ; Libs auf die Platte kopieren
  364.  
  365. (complete 50)
  366.  
  367.  
  368. (copyfiles
  369.    (prompt  #install_all)
  370.    (help    #install_all_help)
  371.    (source  #awall)
  372.    (dest    #folder)
  373.    (all)
  374.    (confirm)
  375. )
  376.  
  377. (complete 70)
  378.  
  379. (copylib
  380.    (prompt  #install_wizardlib)
  381.    (help    #install_wizardlib_help)
  382.    (source  #wizardlib)
  383.    (dest    "libs:")
  384.    (confirm)
  385. )
  386.  
  387. (complete 90)
  388.  
  389. (copylib
  390.    (prompt  #install_applib)
  391.    (help    #install_applib_help)
  392.    (source  #applib)
  393.    (dest    "libs:")
  394.    (confirm)
  395. )
  396.  
  397. ;============= Startup ändern =====================================================
  398.  
  399. (set #startuptemp (cat "\nASSIGN AMIGAWRITER: " #folder "\n"))
  400.  
  401. (set #startup (cat "\n"
  402.     "To get AmigaWriter work well there has to be made\n"
  403.     "some changes to your User-Startup.\n\n"
  404.     #startuptemp
  405.     ))
  406.  
  407. (set #endnow (cat "Installation of AmigaWriter V1.0 completed.\n"
  408.     "When the lines:\n" #startuptemp "\ndo not appear\n"
  409.     "in your Startup-Sequence or User-Startup,\n"
  410.     "please do it manually.\n\n"
  411.     "Remove all disks and start your new word processor.\n\n"
  412.     "Best wishes..."
  413.     "HAAGE & PARTNER"
  414.     ))
  415.  
  416. (if (= @language "deutsch") (
  417.  
  418. (set #startup (cat "\n"
  419.     "Um mit AmigaWriter richtig arbeiten zu können, muß \n"
  420.     "eine Änderung an der User-Startup vorgenommen \n"
  421.     "werden:                                       \n"
  422.     "                                              \n"
  423.     #startuptemp
  424.     ))
  425.  
  426. (set #endnow (cat "\n"
  427.     "Installation Ihrer neuen Textverarbeitung AmigaWriter beendet.\n\n"
  428.     "Falls die Zeile:\n" #startuptemp "\n"
  429.     "nicht in Ihre User-Startup eingefügt wurde,   \n"
  430.     "dann holen Sie dies bitte nach.               \n\n"
  431.     "Entfernen Sie nun die Diskette aus Ihrem      \n"
  432.     "Laufwerk und starten Sie StormC.              \n\n"
  433.     "Wir wünschen Ihnen viel Erfolg!\n"
  434.     ))
  435. ))
  436.  
  437. (if (= @language "italiano") (
  438.  
  439. (set #startup (cat "\n"
  440.     "Per completare l'installazione dello AmigaWriter\n"
  441.     "sono necessarie alcune modifiche alla User-Startup.\n\n"
  442.     #startuptemp
  443.     ))
  444.  
  445. (set #endnow (cat "L'installazione dello AmigaWriter V1.0 è terminata.\n"
  446.     "Se le righe\n" #startuptemp "\nnon compaiono nella Startup-Sequence\n"
  447.     "o nella User-Startup, eseguitele manualmente.\n\n"
  448.     "Rimuovete tutti i dischi e avviate lo AmigaWriter.\n\n"
  449.     "Con i migliori auguri..."
  450.     "HAAGE & PARTNER"
  451.     ))
  452. ))
  453.  
  454.  
  455. (startup "AmigaWriter"
  456.     (prompt #startup)
  457.     (help #help-startup)
  458.     (command #startuptemp)
  459. )
  460.  
  461. (makeassign "AMIGAWRITER")
  462. (makeassign "AMIGAWRITER" #folder)
  463.  
  464. (if (= (exists "Fonts:CGTimes.font") 0)
  465.     (
  466.     (message #fonterror)
  467.     )
  468. )
  469.  
  470. (if (= (exists "Fonts:CGTriumvirate.font") 0)
  471.     (
  472.     (message #fonterror)
  473.     )
  474. )
  475.  
  476. (if (= (exists "Fonts:LetterGothic.font") 0)
  477.     (
  478.     (message #fonterror)
  479.     )
  480. )
  481.  
  482. (if (= (exists "Fonts:CGTimes.otag") 0)
  483.     (
  484.     (message #fonterror)
  485.     )
  486. )
  487.  
  488. (if (= (exists "Fonts:CGTriumvirate.otag") 0)
  489.     (
  490.     (message #fonterror)
  491.     )
  492. )
  493.  
  494. (if (= (exists "Fonts:LetterGothic.otag") 0)
  495.     (
  496.     (message #fonterror)
  497.     )
  498. )
  499.  
  500. (if (<= setpatchver 40)
  501.    (if (<= setpatchrev 16)
  502.       (message
  503.         ((cat "\n\nWrong Setpatch-Version\n\n"
  504.          "You have installed version "setpatchver"."setpatchrev" of SetPatch\n\n"
  505.          "Please install a new one!")
  506.       ))
  507.  
  508.    )
  509. )
  510.  
  511. (complete 100)
  512.  
  513. (exit #endsuccess (quiet))
  514.